(defun ssm (f s l) 
  (if (null l) 
	s
	(let* (
	  (fs (max (first l) (+ (first l) f)))
	  (ss (max fs s)))
		(ssm fs ss (rest l)))))
(print (ssm 0 0 '(-6 11 -2 0 3)))
